home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / altchan < prev    next >
Encoding:
Text File  |  2002-10-28  |  716 b   |  27 lines
  1. #$EPIC: altchan,v 1.3 2002/08/12 16:59:49 jnelson Exp $
  2. #
  3. # "altchan" -- a script to implement ALT-<number> key bindings
  4. # BitchX I guess does this by default.  So here is a compatibility script.
  5. #
  6.  
  7. bind ^[1 parse_command to_window 1
  8. bind ^[2 parse_command to_window 2
  9. bind ^[3 parse_command to_window 3
  10. bind ^[4 parse_command to_window 4
  11. bind ^[5 parse_command to_window 5
  12. bind ^[6 parse_command to_window 6
  13. bind ^[7 parse_command to_window 7
  14. bind ^[8 parse_command to_window 8
  15. bind ^[9 parse_command to_window 9
  16. bind ^[0 parse_command to_window 10
  17.  
  18. alias to_window (window default 0) {
  19.     if (winnum($window) == -1) {
  20.         xecho -c -b SWAP: No such window: $window
  21.     } {
  22.         window refnum_or_swap $window
  23.     }
  24. }
  25.  
  26. #hop'y2k+1
  27.